home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / Gauge.asc < prev    next >
Text File  |  1980-03-04  |  1KB  |  45 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Amos Rastport
  13. '  -Wb Bevel Box 
  14. '  -Wb Gauge 
  15. '
  16. Screen Open 0,640,256,8,$8000
  17. Curs Off : Flash Off : Cls 0
  18. Palette $AAA,0,$FFF,$F50,$5F
  19. '
  20. RP=Amos Rastport
  21. Wb Bevel Box RP To 2,1,5,5,405,40
  22. Wb Bevel Box RP To 1,2,10,10,400,25
  23. '
  24. Double Buffer : Autoback 0
  25. '
  26. For T=1 To 100
  27.    Wb Gauge T,3,4,11,11 To 399,24
  28.    Ink 1,0 : Text 20,35,"Pourcentage: "+Right$("  "+Str$(T),3)
  29.    Screen Swap 
  30.    Wait 2
  31.    Wait Vbl 
  32. Next T
  33. '
  34. For T=100 To -1 Step -1
  35.    Wb Gauge T,3,4,11,11 To 399,24
  36.    Ink 1,0 : Text 20,35,"Pourcentage: "+Right$("  "+Str$(T),3)
  37.    Screen Swap 
  38.    Wait 2
  39.    Wait Vbl 
  40. Next T
  41. '
  42. Print "Press any key..."
  43. Screen Swap 
  44. Wait Key 
  45.